#!/usr/bin/perl

use warnings;
use strict;

my @my_array = (1,2,3);

print join "+", @my_array;